home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Games
/
General
/
Mosaicon 1 Folder
/
Aide Mosaïcon
/
Aide MosaÔcon
/
stack_-1.xml
< prev
next >
Wrap
Extensible Markup Language
|
1994-04-24
|
10KB
|
23 lines
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>4</cardCount>
<cardID>2972</cardID>
<listID>4422</listID>
<cantModify><false /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>352</width>
<height>336</height>
</cardSize>
<script>on idlelock screenshow bkgnd btn masqueset hilite of bkgnd btn masque to trueset hilite of bkgnd btn remasque to falsehide bkgnd btn remasqueunlock screenend idleon suspendstackglobal cartaid,mesmeput the number of this card into cartaidlock screenput "" into fld commentairehide bkgnd btn id 32voiler trueunlock screenif "button" is not in short name of bkgnd btn id 29 then set the userlevel to short name of bkgnd btn id 29lock screenchcdisposelock screenput short name of bkgnd btn id 32 into mesmeend suspendstackon resumestackglobal mesme,cartaidset the cantabort of this stack to trueset the cantpeek of this stack to truereset menubarlock screenset name of bkgnd btn id 29 to the userlevelset the userlevel to 1chcdisposecolorizehc "assigntofront"if the screenrect = "0,0,512,384" then put "31" into yelse put "25" into yif mesme ≠ "" and mesme ≠ short name of bkgnd btn id 32thenset name of bkgnd btn id 32 to mesmeput "" into mesmeend ifcol rect of bkgnd btn id 25voiler truerepeat until the lockscreen is falseunlock screenend repeatlock screensend opencard to this cardshow bkgnd btn id 32unlock screenvoiler falseput "À propos de Mosaïcon…" into menuitem 1 of menu 1 with menumessages "kwad9"set the cantabort of this stack to trueset the cantpeek of this stack to trueend resumestackon closestackglobal cartaid,mesmeset name of bkgnd btn id 31 to " MosaÏcon - Aide"set name of bkgnd btn id 25 to " MosaÏcon - Aide"put "" into cartaidput "" into mesmeif the screenrect = "0,0,512,384" then put "31" into yelse put "25" into yset hilite of bkgnd btn id y to trueset name of bkgnd btn id 32 to ""set icon of bkgnd btn id 32 to "?b"hide bkgnd btn id 32voiler true-- lock screenhide bkgnd btn id 29hide bkgnd btn id 30hide bkgnd btn id yhide bkgnd btn aidehide bkgnd btn mosaïconshow bkgnd btn introset name of bkgnd btn id 30 to ""colorizehc "dispose"if "button" is not in short name of bkgnd btn id 29 then set the userlevel to short name of bkgnd btn id 29set name of bkgnd btn id 29 to ""reset menubarset the cantabort of this stack to falseset the cantpeek of this stack to falseend closestackon openstackglobal mesme,errset the cantabort of this stack to trueset the cantpeek of this stack to truecHCinstallif err ≠ ""thenput "" into errchcdisposeset lockmessages to truego homeexit openstackend ifget checkHCFont("Courier","18") & checkHCFont("Geneva","10") & checkHCFont("Helvetica","16") & ¬checkHCFont("Times","128")if it is empty thenelseput it into missingFontsrepeat with i = 1 to the number of lines of missingfontsput " " & word 1 of line i of missingfonts & "," after tiend repeatif the number of lines of missingfonts > 1then put "des polices" before tielseput "de la police" before tidelete last char of tiend ifbeepanswer "Aide Mosaïcon requiert la présence " & ti & " dans le système."chcdisposeset lockmessages to truego homeexit openstackend ifset name of bkgnd btn id 29 to the userlevelset userlevel to 1reset menubarset name of bkgnd btn id 31 to " MosaÏcon - Aide"set name of bkgnd btn id 25 to " MosaÏcon - Aide"colorizehc "dispose"show bkgnd btn introlock screenif the screenrect = "0,0,512,384" then put "31" into yelse put "25" into yset hilite of bkgnd btn id y to trueset name of bkgnd btn id 32 to ""hide bkgnd btn id 32voiler truehide bkgnd btn id 29hide bkgnd btn id 30hide bkgnd btn id yhide bkgnd btn aidehide bkgnd btn mosaïconset name of bkgnd btn id 30 to ""if "mosaïcon" is not in line 2 to (the number of lines of the stacks) of the stacksthencol "0,0,512,384"show bkgnd btn mosaïconshow bkgnd btn aiderepeat until the lockscreen is falseunlock screenend repeatwait 1 seclock screencolorizehc "add","taceo",rect of bkgnd btn id 29unlock screenset hilite of bkgnd btn id 29 to trueset hilite of bkgnd btn id 30 to trueshow bkgnd btn id 29show bkgnd btn id 30put "Patrick DOGLIANI 1994" into auteurset name of bkgnd btn id 30 to char 1 of auteurget short name of bkgnd btn id 30repeat with a = 2 to the number of chars of auteurput char a of auteur after itif last char of it ≠ " " then play toucheelse play espaceset name of bkgnd btn id 30 to itwait until the sound is doneend repeatshow fld cadrewait 2 secset name of bkgnd btn id 30 to ""play retourlock screenhide fld cadrehide bkgnd btn id 29hide bkgnd btn id 30unlock screenwait 1 seclock screenhide bkgnd btn id yhide bkgnd btn mosaïconhide bkgnd btn aideunlock screenlock screenelsevoiler trueif mesme ≠ "" and mesme ≠ short name of bkgnd btn id 32thenset name of bkgnd btn id 32 to mesmeput "" into mesmeend ifcol rect of bkgnd btn id 25repeat until the lockscreen is falseunlock screenend repeatend ifif the screenrect = "0,0,512,384"thenhide bkgnd btn id 25show bkgnd btn id 31set the rect of the card window to 150,43,502,379elsehide bkgnd btn id 31show bkgnd btn id 25set the rect of card window to 80,74,432,410end ifif mesme ≠ ""thenset name of bkgnd btn id 32 to mesmeput "" into mesmeend ifsend opencard to this cardunlock screenvoiler falseshow bkgnd btn id 32put "À propos de Mosaïcon…" into menuitem 1 of menu 1 with menumessages "kwad9"set the cantabort of this stack to trueset the cantpeek of this stack to trueend openstackon col xif button is in short name of bkgnd btn id 32thenput ",," into macouleurrepeat with a = 1 to 3put random (65535) into item a of macouleurend repeatlock screencolorizeHC "colorFill",x,macouleurunlock screenset name of bkgnd btn id 32 to macouleurelselock screencolorizeHC "colorFill",x,short name of bkgnd btn id 32unlock screenend ifend colon cHCdisposelock screencolorizeHC "dispose"unlock screenend cHCdisposeon cHCinstallglobal errif checkEnviron() is not "OK"thenput "oui" into errend ifend cHCinstallfunction checkEnvironglobal errput MaxDepth() into TheDepthif TheDepth < 8thenbeepanswer "Aide Mosaïcon ne fonctionne qu'en mode 8 bits (256 couleurs)."put "oui" into errend ifif stackActivate() is not emptythenerrColorelse return "OK"end checkEnvironfunction stackActivateglobal gOKToColorizeput empty into gOKToColorizecolorizeHC "assignToFront"if the result is not empty thenput the result into gOKToColorizereturn gOKToColorizeend ifend stackActivateon errColorglobal gOKToColorizebeepanswer "Aide Mosaïcon nécessite d'allouer à HyperCard au moins 2000 ko de mémoire vive." & return & returnend errColoron voiler xif the screenrect = "0,0,512,384" then put "31" into yelse put "25" into ylock screenif x = truethenhide bkgnd btn id 32set hilite of bkgnd btn intro to trueset hilite of bkgnd btn id y to trueshow bkgnd btn introelseshow bkgnd btn id 32hide bkgnd btn introset hilite of bkgnd btn intro to trueset hilite of bkgnd btn id y to falseend ifunlock screenend voileron kwad9put the trunc of ((item 3 of the screenrect-423)/2) into Xput the trunc of ((item 4 of the screenrect-143)/2) into Yif the commandkey is downthenput "hidden,hidden,hidden,hidden,hidden,hidden" into hzput "" into item random (6) of hzput quote & "PictItem," & item 1 of hz & quote & return & quote & "PictItem," & item 2 of hz & quote & return & quote & "PictItem," & item 3 of hz & quote ¬& return & quote & "PictItem," & item 4 of hz & quote & return & quote & "PictItem," & item 5 of hz & quote & return & quote & "PictItem," & item 6 of hz & ¬quote into enc1put enc1 into crrput "PictItem,hidden" & return & "PictItem,,,,suivant1" & return & "PictItem,hidden,,,suivant2"¬& return & "chkCtrl,touchexit" & return & "PictItem,hidden" & return & enc1 into DLItemListelse put "PictItem,,,,suivant1" & return & "PictItem,hidden,,,suivant1" & return & ¬"PictItem,hidden,,,suivant2" & return & "chkCtrl,touchexit" & return & "PictItem,hidden" ¬& return & "PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" ¬& return & "PictItem,hidden" & return & "PictItem,hidden" & return & "PictItem,hidden" into DLItemListget ModalDialog("à propos de",DLItemList,X,Y,default)end kwad9on suivant1get handleItem(Visible,1,hidden)get handleItem(Visible,2,hidden)get handleItem(Visible,6,hidden)get handleItem(Visible,7,hidden)get handleItem(Visible,8,hidden)get handleItem(Visible,9,hidden)get handleItem(Visible,10,hidden)get handleItem(Visible,11,hidden)get handleItem(Visible,3,show)end suivant1on suivant2get handleItem(Visible,3,hidden)get handleItem(Visible,5,show)end suivant2</script>
<background id="2795" file="background_2795.xml" name="" />
<card id="2972" file="card_2972.xml" marked="false" name="Principe" owner="2795" />
<card id="3791" file="card_3791.xml" marked="false" name="Niveaux" owner="2795" />
<card id="4008" file="card_4008.xml" marked="false" name="Options" owner="2795" />
<card id="4110" file="card_4110.xml" marked="false" name="Configuration" owner="2795" />
</stack>